PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Organizational Aids/ClassRoom Aids/SetUpStack/background_4666.txt

Text File | 1987-12-24 | 5.0 KB | 235 lines

-- background: 4666 from stack: in
-- bmap block id: 4975
-- flags: 0000
-- background id: 0
-- name:


-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=108 right=129 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=148 top=139 right=160 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone Number


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=148 top=171 right=192 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GradeToDate
----- HyperTalk script -----
On mouseUp
  push this card
  put char 1 of word 1 of field "Name" into temp
  put temp & word 2 of field "Name" & "Grades" into cardname
  visual effect iris open
  go to card cardname
  get loc of bkgnd field "Points"
  click at it
  put bkgnd field "Points" into points
  pop card
  if points < line 3 of card field "D" then
    put "F" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 2 of card field "D" then
    put "D-" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 1 of card field "D" then
    put "D" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 3 of card field "C" then
    put "D+" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 2 of card field "C" then
    put "C-" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 1 of card field "C" then
    put "C" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 3 of card field "B" then
    put "C+" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 2 of card field "B" then
    put "B-" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 1 of card field "B" then
    put "B" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 3 of card field "A" then
    put "B+" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 2 of card field "A" then
    put "A-" into field "GradeToDate"
    exit mouseUp
  end if
  if points < line 1 of card field "A" then
    put "A" into field "GradeToDate"
    exit mouseUp
  end if
  if points >= line 1 of card field "A" then put "A+" into field "GradeToDate"
End MouseUp








-- part 5 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=138 top=0 right=22 bottom=238
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go previous
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=257 top=0 right=23 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go next
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=347 top=105 right=155 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Grades
----- HyperTalk script -----
on mouseUp
  put char 1 of word 1 of field "Name" into temp
  put temp & word 2 of field "Name" & "Grades" into cardname
  visual effect iris open
  go to card cardname
end mouseUp





-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=161 right=201 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 1017 / 1017
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dial
----- HyperTalk script -----
on mouseUp
  Dial line 1 of field "Phone Number" with modem
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=119 top=202 right=291 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:


-- part 12 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=368 top=52 right=98 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance
----- HyperTalk script -----
on mouseUp
  put char 1 of word 1 of field "Name" into temp
  put temp & word 2 of field "Name" & "Attendance" into cardname
  go to card cardname
end mouseUp